﻿Public Class frmAcademico

#Region "Funções"

    Private Sub HabilitarTela(ByVal booHabilitar As Boolean)

        FuncoesPrincipais.HabilitarTela(booHabilitar, Me)

    End Sub

#End Region

#Region "Eventos"

    Private Sub frmAcademico_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        FuncoesPrincipais.HabilitarTela(True, frmPrincipal)
    End Sub

    Private Sub btnHorario_Click(sender As System.Object, e As System.EventArgs) Handles btnHorario.Click

        HabilitarTela(False)
        Horario_Aulas.Show()

    End Sub

    Private Sub btnTrabalhos_Click(sender As System.Object, e As System.EventArgs) Handles btnTrabalhos.Click

        HabilitarTela(False)
        Atividades.Show()

    End Sub

    Private Sub btnEventos_Click(sender As System.Object, e As System.EventArgs) Handles btnEventos.Click

        HabilitarTela(False)
        Extra.Show()

    End Sub

    Private Sub btnMaterial_Click(sender As System.Object, e As System.EventArgs) Handles btnMaterial.Click

        HabilitarTela(False)
        Material.Show()

    End Sub

#End Region

End Class